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Version: *v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT _GORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE yee AND cortee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
CLUSION OF THE ABOVE Spit had NOTICE. THIS SOFTWARE OR ANY OTHER 


0 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
a aTike NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 


DIGITAL gy NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 
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TBKRST.BEG = Runtime SYmbol Table Literals and Structures 
Revision History: 


01 fea! KGP “Put together the initial version of this file. 
02 -JULY-77 KGP -Changed all the data structure definitions 
-” .? at now FIELD and FIELD SETs are 
03 21-july-77 KGP ~Switched over to using SRM es, nenes 
for the DST recore types. (Appendix 
04 28-july-77 KGP “Started using RST_MC Structure 4° eas ac 


instead of BLOCK, and changed RST_MC and 
RST_NT structs to use an EXTERNAL” LITERAL 
forthe relocation, instead of an ordinary 
external, DBGSGL_RST_PTR. 

05 02-AUG-77 KGP “Reorganized NT and MC structures so that 
the shared fields were alligned so that we 
could look at any arbitrary record and 
deduce whether it was an NT or an MC record. 

06 03-AUG-77 KGP -Added field names to NT and MC structures so tha 
we can pick up the address of the symbol anes 
This is an ingenpes sole change to previou 
versions of Fhvs ile because the old field name 


no longer ex 
07 10-AUG-77 KGP —- he Gefinition of GST record and 
08 18-aug-77 KGP “Aged” the record definition for BLISS 
type core a) records. 
09 13-sept-77 KGP Added the _1S_GLOBAL L flag definition te 


MC RECORDS “and” NT RECORDS, and stop pped 

using the special NT_TYPE value to indicate 
that a symbol is global. 
“Also moved the flag tieids in MC_RECORDs 
around so that the records are 1 byte shorter. 


10 15-09-77 cP Added PC correlation record type. 
11 20-sept-77 KGP -Changed DST_TYP_LOWEST and _HIGHEST 
as now we handlé so-called SRM types for 
RST buil nai 
12 21-sep-77 KGP ~gncronsed s _SAME_SYMBLS from 10 t0 25 to 
y and f e yser=re orted error which is 
vl Be B.. >1 mbols hash to oe pene value. 
13. 23-sep-77 KGP “Changed the skeleton structure 4 on Real 
and added comments herein to doc 
14 27-sep-77 KGP “Added the non-mars ABE DivPE bScaK. spt tPe “ihe 
to the ber type col ection since we now (5% 
suppor 
15 28-sep-77 KGP Bn. hm y che” SAT and LVT structs so that they 


are alligned wrt _NT_PTR and aVAL UE? LB so that 
they can share a Common ort Fout aes 

16 14-OCT-77 KGP ~aeced the new data eoeer cer £ types 
ARRAY _BNDS pest ane SYA_V C.° Also 
added the ACCS_ su Tee ; i records. 

17 -_- 27?-oct-77 KGP -We now use 43 MC_IS_GLOBAL bit in MC 


H 
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records, nines we pow haye a ‘dummy’ MC 
record to h ang global 
“Also added aN T_RST fe! "tod or RENTON the 
values for $ eee ay and LVT 
18 28-OCT-77 KGP “Added MC OTANGURGEf eld in MC fecords. 
Also set up NT_not yo: NT_free and MC_free 
ields, so that it'is now clearer 
ust how these ‘common’ (NT/MC) bits 


nterrelate. 
19 01-nov-77 KGP “Took away we docu and definition of 
the nay~be ynct DUPLICATION "VECTORS. 
20 02-nov-77 KGP “Took the setin tion '. the § obal Sporty ® 


pecs. RST 8 cern A ous e is Tile and put i 
Because oth A ig ae” 
dL, ssaaleine about mult tle defined 
lobals since this file is REQUIR 
n several f 
21 3-NOV-77 KGP -Carol took out all references to A _LONGWORD 
and changed them to Zupval. 
-I changed the proposed W VALU_DESCRIPTOR field 
PTR for the benefit 


T_SCOPE. 
22 9=nov-77 KGP “Added the AC_NT STORAGE field to acs. and the 
definition of VECT_S R_DESCs, which we 


Oe EE me mmm 


now use to manage Se-uotiee ‘vector storage’ 
23. 14=nov-77 KGP “NT records are now doubly-Linked into hash chains. 
24 15-nov-77 KGP “reorganized NTs and MCs so that NT names comes at 
the end so that NTs can be variable-sized. 
25 16=nov-77 KGP “Added the new storage descriptors 

to MCs so that we can associate LVT 

and SAT storage Ay MCs. 
-Threw auay the old notion of SAT COUNT being 

a SAT_RECORD field for future use. 


26 = 17=nov-77 KGP -Added the SAT and LVT contre’ literals to 
punpert the new + -NE XT pag Foun ines. 
27 8 19-nov-77 KGP ~Added the field PREG LINK, to SAT 
records. {ang d, ninptTe! tly, to LVT records). 
28 3 =21-nov-77 KGP Added S$ to be used by add module 
22-nov-77 KGP “Another a ttit mOrOR _LONG_PTRS, of each vector 
storage | descr : tor makes MCs $ bytes longer. 
30 28-nov-77 KGP ~Added MC_IS_DYING field to MC records. 
SL_ACCE_MORE E changed ¢ to, st ACCE_FREE 
1 12-dec-77 KGP ~Added liter ET 
: 13-DEC-77 KGP ~Added NT 15"eduNbeD Tey bit to NTs 
29-12-77 cP Add a theta i to nt_record to dosertbe 
the value field. of a GST name table entry. 
34 13-JAN-78 DAR Renoved the literals mars-module, fortran module, 
and bliss_module and put them Hy DBGGEN. 
35 02-feb-78 KGP -New S17e Literals for overall DST characteristics 
so that we can avoid overflow due to 
too many MCs. 
8 15-feb-78 KGP “New sub types ay or ACCESS 
8-mar-78 KGP -Stole this from DEBUG fo use for TRACE 


so that the two ta remain separate 
-Commented out some of the DSC definitions 
38 09-NOV-78 DAR Added new DST record type declarations. 


™ 
0. 
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: as they now appear in SYSDEF.REQ finally. 
' 39 06-JAN-81 DLP Added new DST and SRM types 


- 


ul 
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lee 

Since the DEBUG free-storage manager currently 

works in ‘units’, we define the following macro se 

convert a byte-unit quantity into whatever units it 

: requires, We expect to change the free-storage manager 

to work in byte units, so eventually this macro should 
ust reduce to its actual parameter. For now, however, 
t ‘rounds up’ to the smallest number of LONGWORDS 

= are required to contain the indicated number of 
ytes. 


RST_UNITS( bytes ) = 
( ((bytes) + Zupval-1)/Zupval ) 


. : 
MACROS: 
MACRO 
YES_NO( question ) 
! Ask a question and return the Y/N answer. 
= 
QUERY( UPLIT( ZASCIC question )) 2%; 


si m4 
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lee 
' RST-Pointers 


So-called RST-pointers are referred to throughout the RST 
code. They are simply the means of access to RST data 

' structures, and we purpoeeiy talk of shee as if they were 
i their own fYPE so that we can change this implementation 
' detail if/when we feel it is necessary. 


For now, RST-pointers are 16-bit items which are manipulated b 

! the special RST storage routines DBGSRST_FREEZ and DBGSRST_RELEASE. 
' No code outside of the gg bn pln 2's, interface module knows 

! anything more about the implementation of RST-pointers than that. 

' (Other modules declare and use RST-pointers via macros, etc.) 


If any change is to be made to what RST-pointers actually 

are, there are only 2 criterion that the new ones much uphold: 

! 1) RST-pointers must be storable in the NT, MC, SAT and LVT fields 
! which are defined for them, and 2) they must be able to provide 

! access to the RST_NT and RST_MC structures defined below. 


The oe greed macro is provided so that one can declare REFs 

to such pointers. Some code also a * es ZSIZE to this macro 

to get the size of an RST-pointer. Note that no code should 
declare an occurrence of an RST=-pointer, since we do not define 
that you can do anything meaningful with such a thing. This is 
because we want to enforce the usage of REFs to the structures 
we declare to access RST data structures. (e.g. we use 

“REF MC_RECORD’' to say that we are declaring a pointer to 

an MC record. REFs to MC_RECORDS also happen to be RST-pointers, 
but we don't want to build-in this coincidental characteristic.) 


MACRO 
RST_POINTER = VECTORC1,WORD) %; 
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et 
Pathnames 


Symbols in DEBUG are actually made up of sequences of 

symbols or ‘‘elements'’. The concatenation of suc 

elements, along with the element separation character (\), make 
up a so-called pathname because the sequence represents the 
path which one must make thru RST data structures to get to 

the desired symbol. 


We represent strings internal to DEBUG by passing around 
so-called counted string pointers. They are otapty LONGWORD 
ointers to a count byte followed by that many characters. 
he CS_POINTER macro allows us to declare occurrences, REFs, 

and take the XSIZE of this type of datum. 


Pathnames, then, are represented with vectors of CS_POINTERS. 
Like duplication vectors, they terminate with a 0 — 

for lg ee pb, ease, but also have a maximum size so that 
we can declare them LOCALLy. 


The following macros are used in declarations to not build-in 
the above conventions. 


' DEBUG tells the RST module about ASCII 
: gtr inge by grtécag a counted string pointer. 
CS_POINTER = REF VECTORC1,B6YTEJ 2; 


' Symbol pathnames are O-ended vectors 
CS_POINTERs. There is a maximum 

‘ Length to gener so that routines can 

! declare LOCAL vectors of pathname pointers. 


LITERAL 
MACRO 


MAX_PATH_SIZE 
PATHNAME_VECTOR 


10; 
VECTORC MAX_PATH_SIZE +1, %SIZE(CS_POINTER) J %; 


M14 
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Overall Characteristics of the RST/DST, etc. 


1+ 


i The DEBUG Runtime a, Table (RST) Sreerstore e area 


i begins at a fixed v 


rtual address. This LITERAL is used 


i di roteiy by some of the RST structures Sapo RST-pointers 
s in 


eee th 


LITERAL 


formation. 


' The RST is a fixed size - but this fac. is onl 
i used to allow us to set the other SIZE Literals 

! below in such a way that we can say that the various 
i RST uses will be percentages of the total size. 


RST_TOTAL_SIZE = 65000, ! RST is 65K bytes. 


! When we SET MODULe, we will not take absolutely 
all the free storage that is available. Instead, we 
! will keep adding modules so long as the amount of 
free eterege ie t (before we add the module) is 
atleast RST_AVAIL_SIZE bytes. 


RST_AVAIL_SIZE = 3000, ! Storage left over for DEBUG itself 


} pursep RST veg " take : ace for only as many MCs 
i as will leave RST -MODU_SIZE bytes for subsequent 
! SET MODULes. Currently the MC space is 50% of the RST. 


RST_MODU_SIZE = (RST_TOTAL_SIZE-RST_AVAIL_SIZE)/2, 


a = and aH are allocated contiguous storage 
r-module basis by tallying we the number of 

SAT/L t vies needed for that module. 

The Rag tg ten two minimums are used to begin the 

tally so that the tables will actually be somewhat 

Lerger than what the MC data implies. The SAT and LVT 
mums must be at least 1 so that we will never ask 

the free storage manager for 0 bytes. 


SAT_MINIMUM = 10, ! Minimum number of SAT entries. 
LVT_MINIMUM = 10, ! Minimum number of LVT entries. 


! The NT, however, has no such fixed size. MC statistics 
gathering tallies up the number of NT entries, though; 
! we begin such a tally at NT_MINIMUM. 


NT_MINIMUM = 0, ! Minimum number of NT entries. 


! We will use byte indices to fetch RST-pointers to the NT 
' from the NT hash vector. This vec tor, phen. must contain 
i NT OnASH. SIZE entries, each of which must b large enough 
i to"store an eatpers nter. See BUILD_RST() T. DBGRST 

i Also see field N FO 


RWARD of the NT record definition, 


N 
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! and the corresponding warning in the routine UNLINK_NT_RECS. 
NT_HASH_SIZE = XX'FF’, ! NT hash vector size. 


We will never erin piyregiegtiset |v mn the 
| seeer bound for ° a 
offset is greater than RST_MAX “OFFSET 


nat paa_preant = %X'100'; 


'¢ 

i Since scone S definitions are recursive, we must 

i Stack ROUTINE BEGINS in the routine ADD_MODULE. 

i It is no coincidence that this stack Limit is the 
i same as the Limit on the length (Cin elements) of 
g symbol pathnames. 


LITERAL 


MAX_SCOPE_DEPTH = MAX_PATH_SIZE; ! Routines can be nested to a maximum depth. 


= 


1 
TBKLIB.REQ;1 16-SEP-1984 16:58:38,038 Page 10 


'e4 
! Descriptors 


formats, the RST modules use a few more descriptors 


! 
' 
} Just as the SRM defines various ‘system wide’ descriptor 
of its own invention. They are as follows: 


le 
Value Descriptors 


Value Descriptors are used to pass around all needed 
information about a value which has been obtained 
from the RST data base. For now they are simply 
2-longword blocks: 


i wT_ptR | 


! actual value i 


Value Descriptors must be accessed via the following 


! 
' 
' 
' 
' 
' 
' 
' 
' 
i 
i 
' 
i] 
' 
' 
' 
' 
;__ field names. 


FIELD 
' VALU_FIELD_SET = 
VALU_NT_PTR = f 0,0,16,0 }- ! Associated NT pointer. 
eg, VALUVALUE = 2.0,32,0 ! The actual value. 


+ 
: Declare an occurrence or REF to a VALUE_DESCRIPTOR 
via the following macros. 


LITERAL 
VALU_DESC_SIZE = 8; ! Each one is 2 longwords long. 


MACRO 


VALU_DESCRIPTOR = BLOCKC VALU_DESC_SIZE, BYTE J] FIELD( VALU_FIELD_SET ) 2%; 


eee 
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++ 
! Array Bounds Descriptor 


An array bounds Descriptor is used to pass around all needed 
information about an array and its + pag Me pe dimensions. 
Like VALU_DESCRIPTORs, they are simply 2-longword blocks, 
but this might change. 


|=--===lLongword-~---! 


address of array ! 


| Length of array 


Such Descriptors must be accessed via the following 
field names. 


! 
i 
i] 
i 
i 
i 
i 
i 
i 
i ] ean awe er we ee = ae we em ee ee ' 
i . 
i 
i 
' 
jae 
FIELD 
ARRAY_BNDS_SET = 


ARRAY_ADDRESS = f 0,0,32,0 }- ! Beginning address of array. 
= ARRAY_LENGTH = 4,0,32,0 ! Size, in bytes, of array. 


1+ 
' Declare an occurrence or REF to an array bounds 
descriptor via the following macros. 


LITERAL 
ARRAY_BNDS_SIZE = 8; ! Each one is 2 longwords long. 


MACRO 
ARRAY_BNDS_DESC = BLOCKC ARRAY_BNDS_SIZE, BYTE ] FIELD( ARRAY_BNDS_SET ) 2%; 
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! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
.] 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
: 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
: 
t 
: 
! 
. 
' 
* 
' 
. 
' 
. 
] 
. 
' 
. 
' 
. 
' 
. 
] 
. 
' 
+ 
' 
. 


FIELD 
' STOR_DESC_SET = 
STOR_LONG_PTRS =(C 0,0, 8,0], ! Pointer type. 1 => full word pointers, 
! QQ => RST-pointer access. 

STOR_BEGIN RST = 1,0,16,0 J, ! RST pointer to beginning of storage. 
STOR-END_RST = 3° 16.0 ‘ ! RST pointer to end of storage. 
STOR_MARRER = 0,16, ! Current place in storage. 

_ ! (RST pointer to next available byte). 


aa 
om 


Vector Storage Descriptors 


So-called ‘vector storage’’ is the storage which 
we allocate in relatively large chunks for oe 
explicit purpose of subsequen Ly re-allocating the same storage 
to someone else in smaller, variable-sized chunks. 


This facility has been implemented to interface between 

the way that the standard DEBUG storage manager 

works, with the way that the RST royt nes really 

want to ‘allocate’ storage. We satisfy the former by 

only asking for large chunks (and paying the 

associated overhead), and we sati ty the Latter by 

‘doling’ out small-sized chunks with Little overhead. 

We can do this because we never have to freeup these 

chunks so don't have to store the would-be-needed pointers, etc. 


t=-%size(RST_POINTER) ==! 
jecese (i.e. word)------! 


i PTR type | 
; beginning of STORage 


i end of STORage i 


i nxt free rec in STOR ! 


Such descriptors are accessed via the 
following field names. 


The ‘begin’ field is the one which various routines 
look at to decide if the field descriptor is valid. 


'¢ 
' Declare an occurrence or REF to a vector storage 
descriptor via the following macros. 


LITERAL 


TBKLIB.REQ;1 16-SEP-1984 16:58:39.08 Page 13 


STOR_DESC_SIZE = 7; ! 3 RST pointers take 6 byte 
i” the pointer-type byte takes 1 more. 


MACRO 
VECT_STORE_DESC = BLOCKE STOR_DESC_SIZE, BYTE ] FIELD( STOR_DESC_SET ) 2%; 


The Module Chain (MC) is a chain of fixed-size 
records each of which has an RST_MC structure: 


'<byte><byte>!<byte><byte>! 


x! flags! type! Next MC i 


DST Pointer i 


number of NT entries 


! first name bytes ! _count | 


more name bytes 


more name bytes 


vector storage descriptor for NT recs 
vector storage suesPtane for SAT recs 


i number of SAT entries 


number of i “entries | i 


The reason for using our own structure here, 
(instead of a BLOCK), is because we access 
MC records with RST-pointers. 


! MC records are 
RST_MC_SIZE = 57; ! Each one takes 


STRUCTURE 


RST_MC C off, Ret: siz ext: N=1, unit=1 
CN * RST_MC_SIZE 
BEGIN 
or TOKE RST. TBKS_RST_BEGIN; 
Take BEGIN 
x : “Diteuntt 


END <pos, 4 ext> 


. 
° 


MC records have the following fields. 


i vector storage descriptor for LVT recs 


F 
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fixed-size. 
this many bytes. 


2s 


_— 
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FIELD 
SET 


MC_FIELD_SET = 


Le | 


MC _LANGUAGE 5 3,3, 3.0 J, 
MC_IS_DYING =C 3,6, 1,0 oy: 


| wee Some fields (up to NAME_ADDR) must 
i with the corresponding Ones in RST 
MC_NEXT 2 16,0 J, } 
mea NeRe : 373: '8:8 3: | 
MC_IS_GLOBAL =(C 3,0, 1,1], 
MC_IN_RST c¢ 53. 13 3 
MC_IS_MAIN =C 3,2, 1,12, ; 
1 
i 
i 
i 


MC_not_free = » 1.0 J, 
MC_DST START = 4,0 33:3 

MC"NAMES = 1°? > 

MC_NAME_CS = 13°5 ° 


MC_NAME_ADDR = (C 13,0, 8,0], 
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e alligned 


b 
NT structures. 


Next MC record “ sao 


DST record type oye 
Must be, osc ote E Hop 
, for ‘normal MCs; for the 


MC record " "hang! _giopals off. 
Whether or iy Me. 

has been fait pi saee ze into the RST. 
Whether or not th 

senna tne the aeoaren® 3 , RRS 


addre 

3-817 encoding of the Language 
which the module is written in. 
Vector storage for this MC is 

about | to be freed up. 

! Used in NTs only. 

' Record 8 of first recerd for this module. 
; paee of NT Fogeres required. 
gene of Module is a counted string. 

A dotted reference to this field picks 
up the count, an undotted one 
i addresses the counted string. 
The name otring itself. An undotted 
reference to this field addresses 
onty the MC name, a dotted reference 
picks up the Ist character of the name. 


! #** leave up to byte 27 inclusive for _NAME_ field. 


MC_NT_STORAGE = C 28,0, 8,0], 


yec tor storage descriptor fo 
A direct reference to this f 
seeixesens to the STOR_LONG 
field of the storage déscri 


! #e@ leave up to byte 34 inclusive for _NT_STORAGE field. 


MC_SAT_STORAGE = C 35,0, 8,0], 


Vector storage descriptor for SAT records. 
* direct reference to this fie 

squi yetent to the STOR_LON PTRS 

field of the storage déscriptor. 


! ##@ leave up to byte 41 inclusive for _SAT_STORAGE field. 


MC_LVT_STORAGE = C 42,0, 8,0 J, ty 


Vector storage Goscripter for LVT records. 
A direct reference to this field is 
equivalent to the STOR <LONG_PIRS 
H eld of the storage déscriptor. 


! ##@ Leave up to byte 48 inclusive for _LVT_STORAGE field. 


H 
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STATICS ' Number of SAT records required. 
LITERAL 


ves. ERA S : f 337053571 }° i Number of LVT records required. 


‘4 
You declare an occurrence or REF of an MC datum via: 


MACRO 
MC _RECORD = RST_MCC RST_MC_SIZE, BYTE J] FIELD( MC_FIELD_SET ) 2%; 
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LITERAL 


RST_NT_OVERHEAD = 13, 


RST_NT_SIZE = 28; 


'<byte><byte>!<byte><byte>! 


| eeeeeeeneeese ! ceoeeeeeeeece 4 
‘x! flags! type! Next NT } 


DST Pointer 


back hash | forw hash ; 


i more name bytes '! 


: more name bytes 


A 


STRUCTURE 


Access to an NT 


of these el ts. 


RST_NT C off, pos. siz enti 
CN * RST_NT_SIZE 


gecin 
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++ 
The Name Table (NT) is a set of doubly-lLinked records 
with the following format: 


Since access to such records will be via so-called RST-pointers, 

(16-bit pointers which we always add a global to before using) 

ue rm the following structure to localize this implementation 
etail. 

lee 


! Number of bytes in NT record ope lus ine those 
s 


he name. (So es th 
PTRC NT_NAMES_CS J gives 


taken up L," 
the length of the NT record in bytes.) 


(This is solely for the benefit of routines 


unlink_nt_recs, add_nt, and add_gst_nt.) 
static NT record would take a max # of bytes. 


(Dynamically-allocated ones usually take less). 


N=1, unit=1 ] = 


EXTERNAL LITERAL TBK$_RST_BEGIN; 
RST_NT + TBKS$_RST_BEGIN 


) + offeunit 
END <pos, siz, ext> 


to change their representation) 


hain is via a ‘hash’ vector. 

Conceptually, this is a vector of RST-pointers, and 

we define the following macro to declare REFs or occurrences 
(because we may decide 
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MACRO 
NT_HASH_RECORD = VECTOR[1,WORD) %; 


NT records have the following fields. 


| 
' 
| 
! Note that NT_FORWARD must be the first 
' field in the record so that unlink_nt_recs 
} gan Sit ae Ae FORWARD and a given entry 

n 
! 


Next NT record in hash chain. 
FORWARD must be first. See above. 
DST heey if Re Pe Er oBA (from SRM), 


Whether or not the synbol “is GLOBAL. 
Unsed in NTs ag oe => syabet"s 
Pointer to associated DST record. 


is bound only to a GST record. 
Pointer to, N record for symbol 
that is ‘above’ this as far as 


ed. 
Backward NT hash shete Link. 
Name of symbol is a counted strin 
A dotted Peterence to this field 
up the count, an undotted one 
addresses Hs Soynter ante in ng. 
The name strin f. An undotted 


"Sleks 


reference to t R, ela addresses 
onty the MC name, a dotted reference 
s up the Ist character of the name. 


the NT_HASH_VECTOR,. 
FIELD 
ont NT_FIELD_SET = 
! wee Some fields (up to NAME_ADDR) must be alligned 
i with the corresponding Ones in RST_MC structures. 
NT_FORWARD ={({ 0,0,16,0 J, 
NT_TYPE =C 2,0, 8.0), i 
! or unused 
NT_IS_GLOBAL = oMe Vel de : 
_not_ free = ol, 6,0 J, ! Used in MCs but not 
NT_IS_BOUNDED = oF ete es ! 
! B and UB are n 
NT_DST_PTR = f 2-8-3 -8 }: . 
NT_GBL_VALUE = 4,0,32,0 J, Value of symbol when 
NT_UP_SCOPE ={ 8,0,16.0 ), : 
i scope is concern 
NT_BACKWARD = f 10,0,16,0 }: : 
NT_NAME_CS = 12,0, 8,0 
i 
' 
NT_NAME_ADDR = (C 13,0, 8,0 ] 
} 
i pic 
TES; 
'¢ 


a You define an occurrence or REF to an NT record via: 


MACRO 


NT_RECORD = RST_NTC RST_NT_SIZE, BYTE) FIELD( NT_FIELD_SET ) %; 


_—) 
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++ 


The Static Address Table (SAT) is a vector of 
ae ze records ‘blocks) with the following 
ormat: 


'<byte><byte>!<byte><byte>! 


i NT=pointer | 


} lower bound address! 


i _upper bound address 


The lower and upper bound address fields contain the 
beginning and ending virtual addresses which were 
bound to the symbol by the Li 

The NT-pointer field contains an RST-pointer into 

the name table (NT) for the NT entry which corresponds 
to this symbol. 


Overall Structure: 


Logically, the SAT is a sequence of fixed-size records 
ordered on the _UB field so that we can search them sequentially. 
Physically the Storage is actually discontiguous, 
space being associated with the ——. Bae zeece was allocated 
on behalf of. Sequentially access to the SA that which 
is provided and defined by GET_NEXT_SAT , * the Li tewten 
manner: 


1) call GET_NEXT_SAT( SL_ACCE_INIT ) 
to set up to begin scanning the SAT 
2) call ptr = GET_NEXT_SAT( access_type ) 


to have ‘ptr’ set to the next SAT record, where 
the notion of ‘next’ is defined by ‘access_type'. 


Currently 3 access rizpes are defined. _RECS and _SORT both 

ook for the next sequential record in a logical sense. (i.e. 
ecord norkes for deletion are qutesly skipped over). The ending 
riterion for _RECS access A that there are no more records left, 

while SORT access. 3 Rees So to be used with the ‘shell’ sort, 

ends each time RECS does but at that time causes 

the access rout nee “3 restore the context which it saved after 

the last _SORT ca f° st tine. subsequent _RECS calls scan from 

where they ere oft las 

In both cases $s solurena % A ‘ptr’ when 

there are no more records for the indicated access type. 


o 
P 


For the t type of sequential access we need seen moving 
endangered /LVT records to storage not 


DYIN 
we also ed SAT a third access mode called SL _Acceé FREE. 


K 
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This mode asks for modules _IN_RST AND _IS_DYING to 
be skipped over so that only pointers to ‘Safe’ records 
are returned. 


In all cases, the same _INIT code must be used to 
‘start off" the access sequence, and no concurrent accose ing 
is allowed except fer the Limited type supported via RECS/SORT 


LITERAL 
SL_ACCE_INIT = 0, ! See above. ‘‘SL'' ==> SAT/LVT 
SL_ACCE_RECS = 1, 
SL_ACCE_SOR1 = ¢: 
SL_ACCE_FREE = 3; 


! SAT/LVT Correspondence 


' 

' 

' 

: While the SAT and LVT are as similar in structure as they 
' are now, the two are manipulated by the same routines as much 

! as possible. This will remain OK as sone as the fields which 
must correspond still do. See the “‘Implic 

' 


it Inputs’’ section 
! of the common routines for details. 


! SAT records have the following fields. 


FIELD 


ast SAT_FIELD_SET = 
! wee The SAT and LVT structures must be alligned so that 
: the _NT_PTR fields match, and so that the _LB and _VALUE 
: fields Overlap. The latter must be true only as long 
§ as the two share a common sort routine which relies on 
‘ this allignment. The former must be true as long as 
: the two share any routines which access SAT_NT_PIR 
: (COMPRES_SAT_LVT, DELE_SAT_LVT, etc). 


SAT_NT_PTR = f 9.0.1 0 }- ! Points to associated NT record. 
= .0,32,0 J, ! Lower bound static address. 


SAT_UB =C 6,0,32,0 ] ! Upper bound static address. 


SATLB 


TES, 


'¢ 

! You declare an occurrence or REF of an SAT datum 
! the macro, SAT_RECORD. If you want the ZSIZE of 
a@ pointer to such a thing, use Zsize( SAT_POINTER ). 


via 


LITERAL 
RST_SAT_SIZE = 10; ! Each SAT record takes this many bytes. 


MACRO 


M 
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SAT_RECORD = BLOCKEC RST_SAT_SIZE, BYTE ] FIELD( SAT_FIELD_SET ) %, 
SAT_POINTER = REF BLOCKC RST_SAT_SIZE, BYTE J] 3%; 


N 1 
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‘+ 


Sa 
The a cteret Value Table (LVT) is a vector of 
Ly pam ze LVT records each of which has the 
following format: 


'<byte><byte>!<byte><byte>! 


i NT-pointer i 


: Literal value 


The value field eearetes the longword value 


! which is bound to the 
' The NT=-pointer is an RST-pointer to the NT record 
' for this symbol. 


Overall Structure: 


Logically, the LVT is a sequence of fixed-size records 
ordered Sn the _VALUE field so that we can search them sequentially. 
Physically the Storage is actually discontiguous, 
space Rt associated with the module the space was a 4 
on behalf of. Sequentially access to the LVI is that which 
is provided and defined by GET_NEXT_LVT using the same 
control Literals and the seme mechanisms as are described 
for the SAT, above. 


LVT records have the following fields. 


FIELD 


'¢ 


LVT_FIELD_SET = 


: seee The SAT and uyt structures must be alligned so that 

the _NT_PTR fields match, and so that the _LB and _VALUE 
fields Overlap. The latter must - true “ehly as long 

as the two share a common sort routine which relies on 
this ats nment. The former must be true as long as 
the two share any routines which access SAT_NT_P 
(COMPRES: SAT_LVT, DELE_SAT_LVT, etc). 


SET 


LVT_NT_PTR = f 0. 18-8 }: ! Pointer to associated NT record. 
= 0 


LVT_VACUE 
TES; 


! Value bound to the Literal. 


A You declare an occurrence or REF of an LVT datum via: 


LITERAL 


RST_LVT_SIZE = 6; ! Each LVT record takes this many bytes. 
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MACRO 
LVT_RECORD = BLOCKC RST_LVT_SIZE, BYTE J] FIELD( LVT_FIELD_SET ) %; 


1 
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lee 

' BLISS uses "non-standard' DST records to encode 

! most of its local symbol information. These records 
' are Like most DST records except that the TYPE 

: information is variable-sized. 


FIELD 
srt BLZ_FIELD_SET = 
BLZ_SIZE =C 0,0, 8,0], ! First byte is record size in bytes. 
: The next byte contains DSCSK_DTYPE_Z, or we 
! wouldn't be applying this structure to a given 
! DST record. 
BLZ_TYP_S12Z =C 2,0, 8,0], } Type “— takes up this 
' man Ss. 
BLZ_TYPE =C 3,0, 8,0], ! which type of type Zero 
! this corresponds to. 
BLZ_ACCESS = f 4,0, 8,0 }: ! Access field. 
BLZ_ STRUCT = De0, 8.0 Je ! Type of STRUCTURE reference. 
! see* The following only work when BLZ_TYP_SIZ is 3. 
BLZ_VALUE = E §.0.3¢.0 }: ! DST VALUE field. 
BLZ_NAME_CS = {({ 10,0, 8,0 J, ! The symbol name is a counted string. 
! A dotted reference to this field 
! picks up the count, an undotted 
! one addresses the counted string. 
BLZ_NAME_ADDR = (11,0, 8,0 J ! The name string itself. An undotted 
' reference is the address of the name, 
tes ! a dotted one is the ist character. 


'¢ 
You declare a REF to a BLZ_DST datum via: 


LITERAL 
BLZ_REC_SIZ = 38; ! Each DST record is at most 38 bytes long. 


MACRO 
BLZ_RECORD = BLOCKC BLZ_REC_SIZ, BYTE) FIELD( BLZ_FIELD_SET ) 2%; 


'¢ 
' The type zero sub SyPes. 

!' as defined in CP0021.MEM, 

! must be within the following 
range. 


LITERAL 


! Type Zero Sub-Types: 
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BLZ_LOWEST 


BLISS_7_FORMAL 
BLISS"2~SYMBOL 


BLZ_ HIGHEST 
: End of TBKRST.REQ 


“wu " 
nyu NelU 


>*- + 


1 
16-SEP-1984 16:58:36.08 Page 25 


! Lowest variable type we support. 


: peace ietiee of a ROUTINE formal. 
! A BLISS LOCAL symbol. 


! Highest variable type we support. 
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literal 
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TBKGEN.REQ = require file for vax/vms TRACE facility 


MODIFIED BY: 


Dale Roedger 29 June 1978 


This file was taken from DBGGEN.REQ on 8 March 1978 


29-JUN-78 DAR 
tty_out_width  =132, : 
fatal bit =4, 
add_the_offset =1, ' 
sub_the_offset =0, : 
upper_case_dif =‘a' = ‘A’, ' 
ascii_offset =%0'60', ! 
e+ 

ASCII character representations 
Linefeed =%0'12", } 
carriage_ret =%0'15', ! 
asc_at_sign =ZASCII ‘a’, ! 
asc_clos_paren =ZASCII ')', ! 
asc_comma =ZASCII ‘,', : 
asc_minus =ZASCII ‘=', ; 
asc_open_paren =ZASCII ‘(', : 
asc_percent =ZASCII ‘Z', ! 
asc_period =ZASCII ‘.°, ; 
asc_plus =ZASCII ‘+', ! 
asc_pounds =ZASCII ‘#' ' : 
asc_quote =ZASCII ‘*' ; 
asc_space =ZASCII ‘' ' : 
asc_sq_clo_brak =ZASCI] pe ! 
asc_sq_opn_brak =ZASCI] ‘C', ; 
asc_tab =ZASCII ' . 
aSC_up_arrow =ZASCII ‘*' : 
not_an_exc = 0, : 
trap_exc = 1, : 
faulft_exc = ¢: ' 
lLookup_exc = 3; : 


Literal ; 


ee 
names of module types 


macro_module 
fortran_module 


pli_ e 
pascal _module 


° 


Added literals for COBOL and BASIC. 


standard TTY puteut width. 
mask for fatal bit in error codes 
add offset to value 


' subtract offset from value 
' difference between ASCII represe 
! offset from numeric value to ASC 


ntation of upper and lower case 
II value 


representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 
representation 


f Linefeed 


carriage return 
an at sign 

closed parenthesis 
a comma 

a minus ore 
open parenthesis 
a percent sign 

&@ period 

a plus sign 

@ pounds sign 

a@ quote character 


3 epee 
a closed square bracket 


>>>>>>>r>r>r>rrrrr> 


representation of an open square bracket 
! ASCII representation of a tab 
representation of an up arrow 


Line number searching for 
pc of trap searching for 
c of fault searching for Line number 
ike TRAP only don't do val_to_sym again. 


pc 
Line number 


module written in MACRO 
module written in FORTRAN 
module written in BLISS 
module written in COBOL 
ule written in BASIC 
module written in PLI 
module written in PASCAL 
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Fe A = 7, 
rpg_module = 8, 
ada_module = 5° : 
'e+ 
Language names and MAX_LANGUAGE 
macro_lang =macro_module, ! 
fortran_lang =fortran_module, | 
bliss_lang =bliss_module, ! 
cobol_lang =cobol_module, ! 
basic_lang =basic_module, ! 
Li_lan =pli_module, ! 
pascal_lang =pascal_module, ! 
c_lang =c_module : 
rpg_lang =rpg_module, ; 
ada_lang =ada_module, : 


max_ language = 9; 


END OF TBKGEN .REQ 


1 
16-SEP-1984 16:58:30.08 Page 27 


' module written in C 
! module written in RPG 
' module written in ADA 


Languages 0 - 9 
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TRACE Version 1.0 = Kevin Pammett, 8-march-1978 
TBKSER.REQ = definitions file for calling system services 


Added a few macros and Literals from DEBUG require files 
we don't want to drag along with TRACE. 


false = 0 & 
repeat = while 1) dot, 


Sfao_stg,count (string) = 
i $fao_stg_count makes a counted byte string out of an ASCII string. 
! This macro is useful to transform an fao control string into the 
! address of such a string, whose first byte contains the length of 
: the string in bytes. 
UPLIT BYTE (XCHARCOUNT (string), Z%ASCII string)%, 
Sfao_tt_out (ctl string) (] = 
i $fao_tt_out constructs a call to fao with a control string, 
! and some arguments to the control string. 
This formatted string is then output to the output device. 
tbk$fao_out ($fao_stg_count (ctl_string), SREMAINING)Z, 
Sfao_tt_cas_out (ctl string_adr) () = 
i $fao_tt_cas_out constructs a call to fao with the address of a 
' control”string, and some arguments to the control string. This formatted 
string is then output to the terminal. 
tbk$fac_out (ctl_string_adr, REMAINING) %, 
Sfao_tt_ct_out (ctl string) = 


i $fao_tt_ct_out constructs a call to fao with a control string. 
} This formatted string is then output to the terminal. 


tbk$fao_out ($fao_stg_count (ctl_string))%, 
Sfao_tt_ca_out (ctl_string_adr) = 

i $fao_tt_ca_out calls fao with the address of a 

' control stfing. This formatted string is then output 

to the output device. 


tbk$fao_out (ctl_string_adr)%; 
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: END OF TBKSER.REQ 
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